home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / RICK-L.ZIP / MAIN-DIR.ZIP / NATIONAL.Q-A < prev    next >
Text File  |  1990-03-06  |  2KB  |  44 lines
  1. ChangeColor 11 1
  2. ClearScreen
  3. Display "╔═══════════════════════════════════════════════╗|"
  4. Display "║ Welcome To The Data-Call National Conferences ║|"
  5. Display "╚═══════════════════════════════════════════════╝|"
  6. ChangeColor 15 1
  7. Display "Before you can be given access we would like you to   |"
  8. Display "read the basic rules of the conferences. They are as  |"
  9. Display "follows: You can not post nasty or flaming messages;  |"
  10. Display "all messages posted must pertain to the conference    |"
  11. Display "topic, and no commercial advertisement is allowed.    |"
  12. Display "                                                      |"
  13. Display "If the rules are broken then access to the Conferences|"
  14. Display "will be TERMINATED and possibly to the network as well|"
  15. Display "depending on how bad the violation was.               |"
  16. Display "                                                      |"
  17. Display "If you agree to these few simple rules, type AGREE    |"
  18. Display "below and answer the questions.    Thank you          |"
  19. Display "------------------------------------------------------|"
  20. ChangeColor 11 1
  21. Display "Enter AGREE |"
  22. Ask 10 1
  23. Endif
  24. If 1 = "AGREE"
  25. ChangeColor 11 1
  26. Display "Enter Your Street Address |"
  27. Ask 45 2
  28. ChangeColor 11 1
  29. Display "Enter your City State and Zip Code |"
  30. Ask 55 3
  31. ChangeColor 11 1
  32. Display "Enter your voice phone number |"
  33. Ask 20 4
  34. PostInfo
  35. OutputAnswer "Agreement: " 1
  36. OutputAnswer "Address  : " 2
  37. OutputAnswer "City ST  : " 3
  38. OutputAnswer "Phone    : " 4
  39. SetFlag A2 OFF
  40. SetSecurity 31
  41. ClearScreen
  42. Quit
  43. 
  44.